home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / demo / Reflections4De.lha / Ref4Demo / skripte.lha / kreis.skr < prev    next >
Text File  |  1996-07-26  |  887b  |  56 lines
  1. REFSKRIPT
  2. ;***************************************************/
  3. ;* Aufruf:        kreis <radius> <npkte> <name> */
  4.  
  5. GET_N_PARAMS
  6. GET_RESULT res
  7. IF_EQUAL_GOTO res 3 w1
  8. RETURN 0
  9. >w1:
  10. GET_PARAM_NR 1
  11. GET_RESULT rad
  12. GET_PARAM_NR 2
  13. GET_RESULT np
  14. GET_PARAM_NR 3
  15. GET_RESULT name1
  16. IF_LESS_GOTO rad 0.00001 error
  17. IF_LESS_GOTO np 3 error
  18. GOTO w2
  19. >error:
  20. RETURN 0
  21.  
  22. >w2:
  23. PRINT neu_polygon( name1 )
  24. NEU_POLYGON name1
  25. GET_RESULT name
  26. DIV 360 np
  27. GET_RESULT delta_winkel
  28.  
  29. SET_VAR winkel 0
  30. SET_VAR i 1
  31. >doloop:
  32.    COS winkel
  33.    GET_RESULT res
  34.    MUL res rad
  35.    GET_RESULT x
  36.  
  37.    SIN winkel
  38.    GET_RESULT res
  39.    MUL res rad
  40.    GET_RESULT y
  41.    SUB i 1
  42.    GET_RESULT i1
  43.    POL_PKT name i1 x y
  44.  
  45.    ADD winkel delta_winkel
  46.    GET_RESULT winkel
  47.    ADD i 1
  48.    GET_RESULT i
  49.    IF_GREATER_GOTO i np fert
  50.    GOTO doloop
  51. >fert:
  52. POL_SCHLIESSEN name
  53.  
  54. RETURN name
  55.  
  56.